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RESUME 


Nous  presentons  un  programme  FORTRAN  servant  a  la  traduction  des 
mnemoniques  en  code  machine  et  a  la  simulation  d'un  programme  ecrit  pour 
les  micro-ordinateurs  de  type  8048/8748/8035.  Ce  programme,  qui  permet 
1 'utilisation  du  langage  symbolique  d'Intel  et  l'emploi  d'Stiquettes 
pour  les  instructions  "sauts",  simule  exactement  le  comportement  du 
micro-ordinateur  dans  les  applications  r6elles.  II  permet  en  outre  la 
simulation  d ' interruptions  et  1 'impression  des  rgsultats  intermSdiaires . 
(NC) 


ABSTRACT 


A  FORTRAN  program  used  to  translate  man-readable  statements  into 
machine-understandable  code  and  to  simulate  a  program  written  for  the 
Intel  8048/8748/8035  microcomputers  is  described.  This  program  allows 
programming  of  the  microprocessor  in  symbolic  language  and  the  use  of 
labels  for  jump  instructions.  The  simulator  duplicates  exactly  the 
behavior  of  the  microcomputer  in  a  real-world  application.  It  is  also 
possible  to  simulate  interrupts  and  print  out  intermediate  results.  (U) 
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1 .0  INTRODUCTION 

An  assembler  and  simulator  for  the  8080  microproces.  has 
already  been  described.  The  first  version  (Ref.  1)  written  in  APL  was 
superseded  Ty  a  new  version  written  in  FORTRAN-IV  language  (Ref.  2). 

On  the  basis  of  the  previous  experience,  an  assembler  and 
simulator  was  written  for  the  Intel  8048/8748/8035  microcomputers  in 
FORTRAN-IV  language.  Files  are  used  to  store  any  assembler  program 
and  the  simulated  microprocessor  memory  to  permit  unlimited-length 
program  edition.  It  is  also  possible  to  transfer  directly  the  data 
generated  by  the  assembler  to  a  8748/PROM  programmer  similar  to  the  one 
described  in  Ref.  3. 

The  FORTRAN  language  permits  the  fast  execution  of  the  program 
instructions  and  the  use  of  the  editor  supplied  with  a  computer  system. 

The  FORTRAN  program  first  translates  the  Intel  8048/8748/8035 
program  into  machine  language;  gives  an  address  to  all  labels;  finds 
errors  in  the  program,  if  any;  and  executes  the  program  exactly  as  the 
microcomputer.  It  also  simulates  interrupts  and  prints  out  intermediate 
data  during  execution.  The  technique  used  in  this  program  is  the  >ame 
as  that  used  in  Ref.  2  and  may  be  extended  to  any  other  microprocessor 
or  microcomputer. 

Section  2.0  briefly  describes  the  principle  of  operation  of  the 
assembler  and  the  simulator.  Section  3.0  gives  details  of  their  use 
and  Section  4.0  the  procedure  to  follow  to  program  the  8748  or  the  PROMs 
for  the  8035.  The  work  was  performed  at  DREV  between  June  and  July,  1977 
under  PCN  33A10,  Improvement  to  equipment. 

2.0  PRINCIPLE  OF  OPERATION 


2.1  The  Assembler 


Program  assembling  is  done  by  a  two-pass  assembler.  In  the  first 
pass,  all  the  binary  coding  of  instructions  is  accomplished  except  for 
the  coding  of  jump  addresses  in  all  jump  and  call  instructions.  A  table 
containing  all  labels  with  their  respective  addresses  is  also  construct¬ 
ed.  Any  syntax  error,  illegal  instruction  or  illegal  argument  will 
also  be  detected  in  the  first  pass.  The  second  pass  is  exclusively 
used  to  give  values  to  byte  2  and  byte  3  of  all  jump  and  call  instruc¬ 
tions.  Illegal  jumps  will  be  detected  in  the  first  or  in  the  second 
pass. 
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During  the  assembling,  the  ROM  content  is  kept  on  the  computer 
file  system  (file  #2)  up  to  a  maximum  of  4096  memory  positions,  and  two 
other  files  are  also  constructed;  these  are  only  scratch  pad  files  used 
in  the  simulation. 

The  present  program  limitations,  5000  lines  and  500  labels, 
are  artificial  and  may  be  changed  if  the  need  arises. 

2.2  The  Simulator 


After  the  program  has  been  assembled,  a  simulation  may  begin. 

The  simulation  faithfully  represents  the  operation  of  the  microcomputer 
in  a  real-world  application.  In  particular,  the  jumps,  the  calls  to 
subroutines,  the  returns  from  subroutines,  the  stack,  the  flags  and  the 
internal  and  external  RAM  are  manipulated  in  the  same  way  as  in  the  8048/ 
8748/8035  microcomputers.  It  is  also  possible  to  print  out  the  micro¬ 
computer  status,  at  any  time,  with  the  PRIN  command  and  to  output  a 
memory  map  of  64  bytes  located  between  0  and  1088  from  the  data  memory. 
These  print-outs  will  not  interfere  with  the  result  of  the  assembling. 
These  commands  are  used  to  analyze  and  to  monitor  the  program.  Similarly, 
it  is  also  possible  to  simulate  both  external  and  timer/event-counter 
interrupts  at  any  point  in  the  program. 

A  few  other  special  instructions  may  be  used  throughout  the 
program;  their  complete  description  is  given  in  the  next  section. 

3.0  UTILIZATION  OF  THE  PROGRAM 


One  must  first  write  his  program  in  a  file  with  a  currently 
available  editor  on  a  computer  system.  The  program  must  then  be  copied 
in  order  to  remove  any  deleted  line  and  to  reorder  any  fractional  num¬ 
bered  line.  On  the  DREV  editor,  the  command  is  "COPY  name  OVER  name,  1" 
where  name  is  the  file  name. 

3.1  Basic  Instruction  Set 


The  following  remarks  should  be  taken  into  account  while 
writing  the  program. 

1)  There  must  be  at  least  one  instruction  per  line.  Each  in¬ 
struction  may  optionally  be  followed  by  a  semicolon  and  a  comment.  The 
maximum  length  of  a  line  is  128  characters.  There  is  no  restriction  on 
the  comment  content . 

2)  An  instruction  may  be  optionally  preceded  by  a  label  and  a 
colon.  The  latter  is  used  only  if  a  label  is  present.  The  label 
may  be  of  any  length,  but  only  the  first  four  (4)  characters  will  be 
meaningful.  During  the  assembling,  a  label  table  is  constructed  and 
is  printed  at  the  end.  The  only  restriction  on  the  label  characters 
is  that  they  must  not  be  a  space,  a  semicolon  or  a  colon.  Nonexecut¬ 
able  instructions  should  not  have  a  label. 
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3)  All  instructions  must  be  followed  by  their  appropriate 
arguments.  These  are  described  in  Ref.  4  and  are  reproduced  in 
Appendix  A.  There  must  be  a  space  between  the  mnemonic  and  the  first 
argument  and  a  comma  between  the  arguments  of  a  two-argument-instruc¬ 
tion.  Numerical  arguments  A  must  respect  the  following  convention:  A 
shall  be  a  nonfractional  decimal  number  with  0  <_ A  <  256. 

4)  The  mnemonic  M0VP3  used  by  Intel  is  replaced  by  MOV3  in 
the  assembler/simulator. 

3.2  Special  Instructions 

A  few  special  instructions  have  been  added  to  the  basic  instruc¬ 
tion  set  to  facilitate  the  assembling  and  the  simulation.  These  are: 

1)  PRIN 


This  instruction  is  used  without  argument  and  will  print  out 
the  processor  status,  i.e.  the  following:  program  counter  (PC),  ins¬ 
truction  line  number,  accumulator,  registers  RO  to  R7,  stack  pointer  (SP) , 
4  flags  (Carry,  intermediate  carry,  FO  and  FI),  enable  external  interrupt 
(IEX),  enable  timer  interrupt  (ITIM) ,  memory  bank  select  (MB)  and  register 
bank  (BS)  flip-flops,  and  a  special  counter,  ST,  which  calculates  the  num¬ 
ber  of  cycles  elapsed  since  the  beginning  of  the  simulation  (if  the 
processor  is  working  at  6  MHz,  one  cycle  represents  2.5  ys .  PRIN  will 
not  affect  the  assembling  and  should  be  used  to  help  in  debugging  a 
program . 

2)  INTE  AND  INTT 


These  instructions  simulate  an  interrupt  that  will  happen 
exactly  at  the  position  where  the  instruction  is  put  in  the  program. 
INTE  simulate  an  external  interrupt,  whereas  INTT  simulates  an 
interrupt  from  the  timer  event -counter .  No  argument  is  needed.  The 
assembled  program  will  not  be  changed  by  these  instructions.  They 
may  be  used  anywhere  in  the  program  to  know  the  effect  of  an  interrupt 
happening  at  this  particular  point. 

3)  END 

This  instruction  must  be  the  last  one  of  a  given  program. 

No  argument  is  needed  and  assembling  is  unaffected. 

4)  ASS I 

This  special  instruction  is  used  to  assign  a  number 
(0  <_  A  <  256)  to  a  particular  ROM  address.  One  instruction  must  be 
used  for  each  byte  to  be  assigned.  Simulation  is  not  affected. 
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5)  MAP 

One  uses  this  instruction,  during  the  simulation,  to  print 
any  64-byte  block  of  the  1088-byte  data  memory  and  this,  without 
effecting  the  assembling.  A  numerical  argument  is  required:  MAP  0 
is  used  to  the  print  internal  data  memory  block  and  Map  1  to  Map  16, 
to  print  external  data  memory  blocks  (64  bytes) . 

6)  VAR 

The  VAR  instruction  is  used  to  assign  an  address  to  a  label 
which  is  not  part  of  the  program  being  assembled.  It  affects  only 
the  assembling.  A  label  is  required  for  this  instruction  with, 
as  a  right  argument,  the  address  to  be  associated  to  it. 

7)  BASE 


This  instruction  is  used  to  change  the  program  counter 
value.  The  instruction  following  BASE  in  the  program  will  have  the 
value  of  the  argument  of  BASE  as  program  counter. 

8)  ASSD 


This  instruction  may  be  used  to  facilitate  the  addressing 
of  a  portion  of  a  program  in  a  relocatable  context.  The  first  argument 
must  be  a  label  and  the  second  one  must  represent  the  address  where 
the  label  address  will  be  stored  (two  bytes  are  written).  This  instruc¬ 
tion  affects  only  the  assembling. 

NOTE :  All  nonexecutable  instructions  immediately  following  a  CALL, 

JMP,  JMPP ,  DJNZ  and  conditional  Jumps  will  not  be  executed  during  the 
simulation.  There  is  no  restriction  for  the  assembling. 

Once  the  FORTRAN  program,  given  in  Appendix  B,  has  been  compiled 
(the  object  program  is  called  0BJ2)  and  your  program  is  ready,  the 
procedure  is  started  by  typing 

SET  F:l, DC/NAME; IN 
SET  F : 2 ,DC/F2 ; INOUT ; SAVE 
SET  F : 3, DC/F3; INOUT; SAVE 
SET  F : 4, DC/F4; INOUT; SAVE 

Where  NAME  identifies  the  file  in  which  the  8048  program  is 
stored.  F2  is  the  memory  file,  whereas  F3  and  F4  are  two  additional 
scratch  pad  files.  These  SETs  should  be  entered  only  once  per  LOGON. 

The  execution  of  0BJ2  is  initiated  by  RUN  0BJ2. 
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3.3  Error  Messages 

1)  Label  error:  A  label  is  missing  or  there  are  fo  or 
more  similar  ones. 

2)  Argument  error:  The  argument  is  unacceptable  or  is 
missing. 

3)  Syntax  error:  Probably  a  nonexisting  instruction. 

4)  BAD  KEY  or  MISSING  RECORD:  An  attempt  has  been  made  to 
write  or  read  in  an  undefined  record.  If  this  happens  during  the  simu¬ 
lation,  one  must  check  if: 

a)  The  stack  pointer  or  the  stack  content  is  wrong; 

b)  the  program  is  longer  than  5000  lines ;or  if 

c)  there  are  more  than  500  labels. 

4.0  INTERFACE  WITH  THE  8748/PROM  PROGRAMMER 

The  8048,  8748  and  8035  microcomputers  differ  from  each  other 
as  follows: 

a)  The  8048  data  memory  is  8  ROM.  It  must  then  be  mask -programmed 

at  the  factory; 

b)  the  8748  program  memory  is  an  EPROM;  and 

c)  the  8035  has  no  internal  program  memory. 

Consequently,  only  the  8748  can  be  programmed  by  a  special 
programmer,  whereas  for  the  8035  the  program  has  to  be  put  into  a 
conventional  PROM. 

To  permit  the  transfer  of  the  assembled  program  from  the 
computer  to  the  programmer,  the  following  steps  should  be  taken. 
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The  following  program  MOR  is  compiled  and  linked  to  APLFNS.LPR 

1.000  INTEGER  TYPE (2) %SIZE(2) 

2.000  INTEGER  *(256.4) 

3.000  77P?(1)=2 

4.000  TYPE(2)=2 

5.000  SIZE( 1 ) = 1 

6.000  SIZE( 2)=1024 

7.000  PRINT  2 

8.000  2  FORMAT C WHAT  IS  THE  STARTING  MEMORY  PAGE?’) 

9.000  DEFINE  FILE  2(256,256 ,U,ICA) 

10.000  READ  1 ,N 

11.000  1  FORMAT (I) 

12.000  N-N* 1 

13.000  READ(  2'N)  (/?(r,l),I  =  l,256) 

14.000  READ(2' N+l)  (/?(!, 2),  1=1, 256) 

15.000  READ(2' N+2) (ff(r,3),I=l,256) 

16.000  ff?/lD(2'W+3)(ff(7,4),I=l,256) 

17.000  CALL  FTIE(S.'FA') 

18.000  FREPLACE(S,1,R ,SIZE ,TYPE) 

19.000  CALL  FUNTIE(S) 

20.000  C/ILL  ST IT 

21.000  aro 


The  object  program  is  called  M0RP  and  its  execution  is  initiated  by 
START  MORP 

To  the  question  "What  is  the  starting  memory  page?",  one  must 
answer  by  a  number  A  (0  <_  A  <_  15).  The  program  will  then  transfer 
4  pages  (1024  bytes)  in  an  APL  file  named  FA.  When  the  following 
operations  are  completed: 

APL 

) LOAD  W 
ASSPROM 
)  SAVE 

a  vector  A  of  1024  elements  is  saved  in  the  workspace  W.  This  vector  is 
directly  accessible  by  a  PROM  programmer  similar  to  the  one  described 
in  Ref.  3  but  adapted  to  the  8748/8035  microcomputers.  The  listing  of 
ASSPROM  is: 


V ASSPROM 

[1]  'FA 'FT IE  6 

[2]  A-FREAD  6,1 

13]  PVWTIE  6 
V 
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5.0  CONCLUSION 

An  assembler  and  simulator  for  the  8048,  8748  and  8035  micro¬ 
computers  has  been  written.  Its  performance  and  speed  are  similar 
to  those  of  the  assembler  and  simulator  used  for  the  8080. 

After  the  assembling  performed  in  two  passes,  it  is  possible 
to  execute  the  program  while  simulating  the  exact  microcomputer 
behavior.  This  simulator  will  considerably  speed  up  design  and  debugging 
of  programs  written  for  the  8048  series  microcomputers. 

The  technique  used  for  this  assembler  and  simulator  can  be 
accommodated  to  any  type  of  microprocessor  or  microcomputer. 
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APPENDIX  A 

INSTRUCTION  SET 


No.  INSTRUCTIONS  ACCEPTED  ARGUMENTS 

1  ADD  A,R 

r 

A,@R 

A,#data 


2  ADDC  A,R 

r 

A,@R 

A,#data 

3  ANL  A,Rr 

A,8R 
A,#data 
Pl,#data 
P2  ,#data 
BUS,#data 

4  ORL  A,Rr 

A,@R 
A,#data 
PI  ,#data 
P2  ,#data 
BUS,#data 

5  XRL  A,R 

r 

A,@R 

A,#data 


REMARKS 

R  =  RO  to  R7 
r 

R  =  RO  or  R1 
0  <  data  <  255 
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No. 

INSTRUCTIONS 

ACCEPTED  i 

6 

INC 

A 

R 

r 

@R 

7 

DEC 

A 

R 

r 

8 

CLR 

A 

C 

FO 

FI 

9 

CPL 

A 

C 

FO 

FI 

10 

DA 

A 

11 

SWAP 

A 

12 

RL 

A 

13 

RLC 

A 

14 

RR 

A 

15 

RRC 

A 

16 

IN 

A, PI 

A,  P2 

17 

OUTL 

PI, A 

P2,A 

BUS,  A 

20 

INS 

A,  BUS 

21 

MOVD 

A,Pp 

Pp.A 
Pp  >  A 


REMARKS 


Pp  =  P4  to  P7 


22 


ANLD 
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No. 

INSTRUCTIONS 

ACCEPTED  ARGUMENTS 

REMARKS 

23 

ORLD 

Pp.A 

24 

JMPP 

@A 

25 

JMP 

LABEL 

26 

DJNZ 

R  , LABEL 
r 

27 

JC 

LABEL 

28 

JNC 

LABEL 

29 

JZ 

LABEL 

' 

30 

JNZ 

LABEL 

31 

JTO 

LABEL 

32 

JNTO 

LABEL 

33 

JT1 

LABEL 

34 

JNT1 

LABEL 

35 

JFO 

LABEL 

36 

JF1 

LABEL 

37 

JTF 

LABEL 

38 

JNI 

LABEL 

39  to 

46  JBO  to  JB7 

LABEL 

47 

CALL 

LABEL 

48 

RET 

49 

RETR 

50 

MOV 

A,R 
’  r 

A,  3R 

A,#data 

R  ,A 
r 

@R,A 

R  ,#data 
r 

@R,#data 

A,PSW 

PSW,A 

A,T 

T,A 
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No. 

INSTRUCTIONS 

ACCEPTED  ARGUMENTS 

51 

XCH 

A,R 

r 

A,  @R 

52 

XCHD 

A,  @R 

53 

MOVX 

A,  @R 

@R,A 

54 

MOVP 

A,  §A 

55 

MOV  3 

A,  @A 

56 

STRT 

T 

CNT 

57 

STOP 

TCNT 

58 

EN 

TCNTI 

I 

59 

DIS 

TCNTI 

I 

60 

SEL 

RBO 

RBI 

MBO 

MB1 

61 

ENTO 

CLOCK 

62 

NOP 

63 

INTE 

64 

PR  IN 

65 

END 

66 

ASS  I 

AA,data 

67 

MAP 

0  to  16 

68 

LABEL:  VAR 

AA 

69 

BASE 

AA 

70 

ASSD 

LABEL,  AA 

71 

INTT 

REMARKS 


0  <  AA  <  4096 
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APPENDIX  B 


LISTING  OF  THE  FORTRAN  PROGRAM 

(ASSEMBLER  AND  SIMULATOR  FOR  THE  INTEL  8048/8748/8035) . 

1.000  DIMENSION  I(32),Zffl2(4) ,LABR(SOQ) ,IPCR{ 500 ) ,KS( 64 ) 

2.000  DIMENSION  CTT (10) .JUMP( 21 ) .PEXP(H) .PffXFV  (4) 

3.000  DIMENSION  IDM( 1088) 

4.000  COMMON  IBUP(3, 256 )  ,.¥£(  3)  ,IFL(3) 

5.000  DATA  IEI%LABC% IPC .JJ .INS.IST . ID, ITCNTl/Q. 0,0, 0,0, 0,1,0/ 

6.000  DATA  JUMP/ 246,230,198,150,54,38,86,70,182,118,22,134, 

7.000  118,50,82,114, 146, 178,210,242,4/ 

8.000  DEFINE  PILE  2(16, 256,#, IGA) ,3(20, 256,(/,rCB) ,4(16, 256,B,ICB) 

9.000  INTEGER  CP.PC .CODE .REG .DAT1.IR2P.TB.TP ,S ,ACC ,PSU .MB.BUS 

10.000  i,pi,P2.Fo.Fi.rcn,B(/sv\sp,BS 

11.000  BUSV= 0 

12.000  DO  476  /=1,3 

13.000  00  486  X=l, 256 

14.000  486  IBUPU.K)  =  0 

15.000  PEXPV(J)=0 

16.000  NC(J)-1 

17.000  476  IPL(J)=  0 

18.000  PCTPF(4)=0 

19.000  409  JJ=JJ*1 

20.000  CALL  SI(JJ .O.LABP.LAB.INST ,IR1P,IR2P,IR12,I) 

21.000  GAOL  REUR(JJ~\.2.IPC,\) 

22.000  IP(LABP.EQ.O)GOTO  400 

23.000  LABC=LABC*1 

24.000  LABR(LABC)-LAB 

25.000  IPCR(LABC) -IPC 

26.500  400  IPdffST.GS. 63)  GOTO  475 

27.000  CALL  RBNR  (IL-1.3.JJ .1) 

28.000  IL-IL* 1 

29.000  IPUNST.LT. 25. OR. INST. G7\47)GOT0  602 

30.000  603  CALL  REUR  (IL-1. 3,«7</,l) 

31.000  IL-IL*1 

32.000  GOTO  475 

33.000  602  IP  ( IR2P.NE.DG0T0  475 

34.000  CALL  SEARCR  (I, 123, Ifll2( 3) ,IS12( 4) .CP.PC) 

35.000  IP(CP.EQ.l)GOTO  603 

36.000  475  GOTO  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,409,409,20,21,22, 

37.000  123,24,25,26,27.27,27,27,27,27,27,27,27,27,27.27,27.27, 

38.000  227,27,27,27,27,27,27,48,49,50,51,52,53,54,55, 

39.000  356, 57, 58, 59, 60, 61, 62, 409, 409, 81, 82, 409, 84, 85, 409, 409), INST 

40.000  PRINT  481 .JJ 

41.000  481  FORMAT ( ' AT  LINE  NO  ’,15,’  THE  INST.  DOES  NOT  EXIST’) 

42.000  GOTO  409 

43.000  703  CALL  SINTAXE  (I,IR12(  1) , I7?12(  2) .IR12( 3)  ,I7?12( 4)  .CODE .REG .DAT X, 
44.000  UJ.IR2P.INST ) 

45.000  GOTO  (409,801,802,803,804,805,806,807,808) ,C0DE*1 

46.000  801  K-CTT(1)*REG 


• .  r*  r\  r- 


** 4  'I 
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t / . UUv 

j<Jl  ./  /  U  3 

46.000 

802 

k-CTT(2)+REG 

49.000 

GOTO  70a 

50.000 

803 

K=CTT(3)+(REG*16) 

51.000 

GOTO  708 

52.000 

804 

A=CTT(4) 

56.000 

GOTO  708 

54.000 

805 

k=CTT(b) 

55.000 

GOTO  708 

56.000 

806 

K-CTT(b) 

57.000 

GOTO  708 

58.000 

807 

K-CTT (7) 

59.000 

G0T01Q9 

60.000 

808 

K-CTT(9)*32*REG 

61.000 

708 

IF (k .GT .999) GOTO  509 

62.000 

IF(INST.EQ.2S)G0T0  704 

63.000 

GOTO  707 

64.000 

509 

PRINT  510,-7-7 

65.000 

510 

FORMAT  (’WRONG  ARGUMENTS  AT  LINE  ’,15) 

66.000 

GOTO  409 

67.000 

547 

CALL  Sl(I,rffl2(l).L,l) 

68.000 

IF(L.EQ.2lb)GOTO  548 

69.000 

IF(L.NE.l9H)GOTO  509 

70.000 

*=*3+69 

71.000 

GOTO  550 

72.000 

548  CALL  Sl(r,I7?12(l)+l,L,2) 

73.000 

DO  549  Ll=241 , 242 

74.000 

IF(L.EQ.L\)GOTO  551 

75.000 

549 

CONTINUE 

76.000 

GOTO  509 

77.000 

551 

K=X3+L1-171 

78.000 

550 

CALL  CTff(I,rR12(3)+l,IR12(4) ,DAT1) 

79.000 

GOTO  704 

80.000 

701 

CALL  SINT AXE (I ,2R12( 1) ,I7?12( 2) , JR12( 3) ,Iffl2(4) .CODE, REG, D ATI, 

81.000 

1JJ,IR2P,INST) 

82.000 

IF  (CODE.EQ. 1. OR. CODE. EQ. 8)  K=K1+REG 

83.000 

IF  (CODE.EQ. 2)  K=K2+REG 

84.000 

IF  (CODE .EQ .3) GOTO  702 

85.000 

IF(CODE  .EQ.l*)K-K3 

86.000 

IF  (INST. EQ. SO. AND. CODE. EQ.O)GOTO  527 

87.000 

IF(INST .EQ.3.AND .CODE ,EQ.O)GOTO  547 

88.000 

IP ( 7WST .EQ.H. AND. CODE .EQ. 0 ) GOTO  547 

89.000 

IF ( INST .EQ.b3.AND. CODE .EQ. 0 ) GOTO  577 

90.000 

IP(C0DE .EQ.O. OR. CODE.EQ. 7)GOTO  527 

91.000 

IF(CODE.EQ.Q)GOTO  409 

92.000 

707 

CALL  WRl(K,IPC) 

93.000 

GOTO  409 

94.000 

702 

K=K3 

95.000 

704 

CALL  WRI(K,DAT1,IPC ) 

96.000 

GOTO  409 

97.000 

1 

*1=104 
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aa.uuu 

99.000 

*3=3 

100.000 

GOTO  701 

101.000 

2 

*1=120 

102.000 

*2=112 

103.000 

*3=19 

104.000 

GOTO  701 

105.000 

3 

*1=88 

106.000 

*2=80 

107.000 

*3=83 

108.000 

GOTO  701 

109.000 

4 

*1=72 

110.000 

*2=64 

111.000 

*3=67 

112.000 

GOTO  701 

113.000 

5 

*1=216 

114.000 

*2=208 

115.000 

*3=211 

116.000 

GOTO  701 

117.000 

6 

CALL  SET (CTT) 

118.000 

<7TT(4)=23 

119.000 

CTT(1)=24 

120.000 

CTT( 2)=16 

121.000 

GOTO  703 

122.000 

7 

CALL  SET  (Cm 

123.000 

CTT( 4)=7 

124.000 

CTT( 1)=200 

125.000 

GOTO  703 

126.000 

8 

CALL  SET  (Cm 

127.000 

C2T(4)=39 

128.000 

CTT(5)=151 

129.000 

cma)=i33 

130.000 

GOTO  703 

131.000 

9 

CALL  SET  (Cm 

132.000 

CTT( 4)=55 

133.000 

CTT( 5)=167 

134.000 

0TT(8)=149 

135.000 

GOTO  703 

136.000 

10 

CALL  SET(CTT) 

137.000 

CTT(4)=87 

138.000 

GOTO  703 

139.000 

11 

CALL  SET (CTT) 

140.000 

C7T(4)=71 

141.000 

GOTO  703 

142.000 

12  CALL  SET(CTT) 

143.000 

CTT( 4)=231 

144.000 

GOTO  703 

145.000 

13  CALL  SET (CTT) 

146.000 

CTT (4) =247 

147.000 

GOTO  703 

148.000 

14 

CALL  SET  (Cm 
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14* . UUU 

vr.v4;=iia 

150.000 

GOTO  703 

151.000 

15 

call  set  (err) 

152.000 

crr(4)=io3 

153.000 

GOTO  703 

154.000 

16 

Xl=9 

155.000 

GOTO  701 

156.000 

17 

Xl=57 

157.000 

X3=2 

158.000 

GOTO  701 

159.000 

20 

K- 8 

160.000 

GOTO  707 

161.000 

21 

CALL  SET(CTT) 

162.000 

CTT( 1)=6 0 

163.000 

GOTO  703 

164.000 

22 

CALL  SET(CTT) 

165.000 

CTT(1)=156 

166.000 

GOTO  703 

167.000 

23 

CALL  SET(CTT) 

168.000 

CTT( 1)=140 

169.000 

GOTO  703 

170.000 

24 

X=179 

171.000 

GOTO  707 

172.000 

25 

X= 4 

173.000 

GOTO  704 

174.000 

26 

IR2P-Q 

175.000 

CALL  SET(CTT) 

176.000 

0TT(1)=232 

177.000 

GOTO  703 

178.000 

27 

K=JUMP(INST- 26) 

179.000 

GOTO  704 

180.000 

48 

X=131 

181.000 

GOTO  707 

182.000 

49 

X=147 

183.000 

GOTO  707 

184.000 

50  S=0 

185.000 

Xl=248 

186.000 

X2=240 

187.000 

X3=35 

188.000 

GOTO  701 

189.000 

51 

CALL  SET(CTT) 

190.000 

CTT(1)=4Q 

191.000 

CTT( 2)=32 

192.000 

GOTO  703 

193.000 

52 

C>1Z,L  S£T  (OTT) 

194.000 

CTT(2)=48 

195.000 

GOTO  703 

196.000 

53 

S=0 

197.000 

X2=128 

193.000 

GOTO  701 

199.000 

54 

K=  163 
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2UU.UUU 

tj'JL'J  /  0  / 

201.000 

55 

K-221 

202.000 

GOTO  707 

203.000 

577 

IF(S  .EQ.DGOTO  509 

204.000 

S=1 

20S.000 

*2=144 

206.000 

GOTO  578 

207.000 

56 

CALL  SET(CTT) 

208.000 

Cm  7)  =  85 

209.000 

OT’(5)  =  69 

210.000 

GOTO  703 

211.000 

57 

*=101 

212.000 

GOTO  707 

213.000 

58 

CALL  SET(CTT) 

214.000 

CTT(7)=37 

215.000 

CTT( 6)  =  5 

216.000 

GOTO  703 

217.000 

59 

CALL  SET  (Cm 

218.000 

Cm7)  =  S3 

219.000 

C2T(6)=21 

220.000 

GOTO  703 

221.000 

60 

CALL  SBT(CTT) 

222.000 

CTT( 3)=197 

223.000 

GOTOTOZ 

224.000 

61 

*=117 

225.000 

GOTO  707 

226.000 

62 

x=o 

227.000 

GOTO  707 

228.000 

527 

IF (CODE . . 6 )*= 1 99 

229.000 

IF(C0D*.*Q.7)*=66 

230.000 

IP(C0D*.*e.7.iWD.S.Se.l)*=98 

231.000 

IP  (CODE.EQ.6.AND.S.EQ.l)K=215 

232.000 

IF (CODE .EQ.l. OR. CODE .EQ. 6) GOTO  707 

233.000 

IP  (S. EQ.DGOTO  528 

234.000 

5=1 

235.000 

*1=168 

236.000 

*2=160 

237.000 

578 

2’B=IR12(  1) 

238.000 

TF-IR12(2) 

239.000 

IR12( 2)=I*12( +) 

240.000 

I*12(1)=I*12(3) 

241.000 

Iffl2(4)=rF 

242.000 

IR12(3)-TB 

243.000 

GOTO  701 

244.000 

528 

S1(1, 1*12(3)  ,1,3) 

245.000 

IF  (L.EQ.12DG0T0  529 

246.000 

IF(L.NE .211 )GOTO  509 

247.000 

CALL  SI  (I,I*12(3)+1,L,4) 

248.000 

DO  533  11=240,247 

249.000 

IF  (LI. EQ.L)  GOTO  537 

250.000 

533 

CONTINUE 
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2 o 1.000 

GOTO  509 

252.000 

537 

CALL  WR1  (184+L1-240,7F€) 

253.000 

GOTO  539 

254.000 

529 

CALL  SI  (Z.7ffl2(3)*l,£,5) 

255.000 

7F(L.VE.217)  GOTO  509 

256.000 

CALL  S1(Z,7.V12(  3)+2,L,6) 

257.000 

DO  531  £1  =  240, 241 

258.000 

IFdl.EQ.DGOTO  532 

259.000 

531 

CONTINUE 

260.000 

GOTO  509 

261.000 

532 

CALL  HR  1  (176+L1-240. IPC) 

262.000 

539 

CALL  CTE{I  ,  I7?12(l)  +  l,Z'fll2(2),A) 

263.000 

CALL  HR1  ( K,IPC ) 

264.000 

GOTO  409 

265.000 

81 

J-J-  0 

266.000 

IPC- 0 

267.000 

415 

■JJ=JJ+l 

268.000 

CALL  SI  (-JJ  ,1,LABP, LAB, INST  ,IR1P ,IR2P ,IR12 ,1) 

269.000 

IFdNST  .EQ. 26)i7?12(  1)  =Iffl2( 3) 

270.000 

IFdNST  .EQ.  26)Z7?12(  2)=Z7?12(  4) 

271.000 

IFdNST.GE.  25.  AND. INST. LT. 48)  CALL  LABEU 1 ,7/?12(  1 ) , 

272.000 

llfl  1 2  ( 2 ) .  LABR ,  IPCR  ,IPC  ,LABC  .*/*/ ,  INST ) 

273.000 

IP (INST .GE .25. AND .INST .LT .B8)GOTO  415 

274.000 

IFdNST. EQ.BS)G0  TO  412 

275.000 

IFdNST  ,EQ.SB)G0  TO  504 

276.000 

IFdNST  ,EQ.70)GOT0  505 

277.000 

IF  ( INST.GE.63)G0  TO  415 

278.000 

IPC-IPC+ 1 

279.000 

IFdR2P.EQ.O)GOTO  415 

280.000 

CALL  SI (I ,Z7?12( 3) ,L,7) 

281.000 

IFd.NE.  123)G0T0415 

282.000 

IPC=IPC+l 

283.000 

GOTO  415 

284.000 

505 

CALL  CrS(r,Iffl2(l),rfll2(2),Kl) 

285.000 

Xl=*l-1 

286.000 

CALL  LABELd  ,IR12(3)  ,IR\2(B) ,LABR ,IPCR ,K\,LABC ,JJ ,INST) 

287.000 

GOTO  415 

288.000 

466 

FOffVAT  (I) 

289.000 

412- 

PR INT 97 H 

290.000 

974 

FORMAT ('END  OF  ASSEMBLING ') 

291.000 

IFdABC  ,EQ.O)GOTO  485 

292.000 

PffJVT  478 

293.000 

478 

FORMAT {// ,'THE  LABELS  ARE,  WITH  THEIR  ADDRESSES') 

294.000 

DO  477  eZ=l,LA5C 

295.000 

477 

PffZVT  479,IPCff(<7)  ,LABR(J) 

296.000 

479 

FORMATd>X,I8,5X,AH) 

297.000 

WRITE ( 2  'NC(1)){IBUF(1,J)  ,-7=1,256) 

298.000 

485 

JJ-0 

299.000 

PRINT  503 

300.000 

503 

FORMAT { 'DO  YOU  WANT  A  SIMULATION?  YES=1,NO=0') 

301.000 

READ  466, A3 

L 
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302.000 

1ST*  0 

303.000 

IF(.K3.BE.l)  GO  TO  281 

304.000 

IPC= 0 

305.000 

SP* 0 

306.000 

BUSV* 0 

307.000 

VB= 0 

308.000 

BS= 0 

309.000 

IEI= 0 

310.000 

ITCHTI* 0 

311.000 

P0=0 

312.000 

F  1=0 

313.000 

410 

JJ*JJ+1 

314.000 

CALL  SI UJ , 2 , LABP.LAB . IB ST , IR1P.IR2P ,IR12,I) 

316.000 

GOTO  (201,202,203,204,205.206,207,208,209,210,211,212, 

317.000 

1213,214,215.216,217,410,410,220, 

318.000 

2221,222,223,224,225,226,227,228,229,230,231,232,233,234, 

319.000 

3235,236,237,238,239,239,239,239, 

320.000 

4239,239,239.239,247,248,249,250,251,252,253,254,255,256, 

321.000 

5257,258,259,260,261,262,263,264, 

322.000 

6265,266, 267 , 268,269,270,271) ,IBST 

323.000 

GO  TO  410 

324.000 

201 

*1=104 

325.000 

*2=96 

326.000 

*3=3 

327.000 

*5=0 

328.000 

405 

CALL  GETOP(Kl,K2,K3,K,IPC,K8,IST,ID*f,BS) 

329.000 

CALL  ICHlCYlt(K+KS)tACC) 

330.000 

333 

ACC=ACC+K+KS 

331.000 

CALL  CARUCAR, ACCESS) 

332.000 

GOTO  410 

333.000 

202 

*1=120 

334.000 

*2=112 

335.000 

*3=19 

336.000 

KS=ICAR 

337.000 

GOTO  405 

338.000 

787 

IST*IST+1 

339.000 

CALL  /?2rW?(IPC-l,l,*4,0) 

340.000 

CALL  REWRUPC ,  1,*, 0) 

341.000 

K 10= ACC 

342.000 

GOTO( 154, 153, 152), *9-*4 

343.000 

152 

ACC* BUS 

344.000 

IF  ( BUSV.EQ.0)PRIBT  483 

345.000 

GOTO  155 

346.000 

153 

ACC=P 1 

347.000 

GOTO  155 

348.000 

154 

ACC=P2 

349.000 

155 

IPC=1PC+ 1 

350.000 

GOTO  788 

351.000 

203 

CALL  affTOP(88,80,83,*,IPC,*8,rsr,ID''f,SS) 

352.000 

*9=155 

353.000 

*6=2 
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35*4.000 

11=2 

355.000 

444 

*7=0 

356.000 

*5  =  1 

357.000 

IF(K8.EQ.1)G0T0  787 

358.000 

788 

DO  442  7=1,8 

359.000 

*  3=0 

360.000 

*l=*-(*/2)*2 

361.000 

K2=ACC-{ACC/2)+2 

362.000 

IF  ( (*1-4*2)  .EQ.K8.OR .  (*1-4*2)  .fffl. 71  )*3=1 

363.000 

*7=*3**5-4*7 

364.000 

ACC -ACC! 2 

365.000 

*=*/  2 

366.000 

442 

*5=*5*2 

367.000 

ACC-K1 

368.000 

IF(K8.EQ.O)GOTO  410 

369.000 

GOTO (35^,  353,352)  ,*9-*4 

370.000 

352 

BUS-ACC 

371.000 

PRINT  435, -77, Si/S 

372.000 

GOTO  411 

373.000 

353 

PI- ACC 

374.000 

PRINT  436,7./,  1, PI 

375.000 

GOTO  411 

376.000 

354 

P2-ACC 

377.000 

PRINT  436,77, 2, P2 

378.000 

411 

i*7<7=*10 

379.000 

GOTO  410 

380.000 

483 

FORMAT  C NO  DATA  ON  BUS’) 

381.000 

204 

CALL  SETOP(72,64,67 ,K,IPC ,K8,IST ,IDM,BS) 

382.000 

*9=139 

383.000 

*6=1 

384.000 

1 1=2 

385.000 

GOTO  444 

386.000 

205 

CALL  GS2’0P(216, 208, 211, *,IPC7, *8, 1ST. IDM.BS) 

387.000 

*9=0 

388.000 

*6=1 

389.000 

71  =  1 

390.000 

GOTO  444 

391.000 

206 

*=1 

392.000 

CALL  7VS0P(23, 24, 16,K,IPC ,IST ,K8,ACC ,IDM,BS) 

393.000 

899 

CALL  CAR(K,ACC ,2b§) 

394.000 

GOTO  410 

395.000 

207 

*=- 1 

396.000 

CALL  INCOPil, 200, 0,*,7PS, 7ST, *8, ACC, IDM,BS) 

397.000 

GOTO  899 

398.000 

208 

CALL  REVR  (IPC, 1,*4, 0) 

399.000 

7F(*4.Sg.39)  ACC- 0 

400.000 

7P(*4.SS.151)  ICAR-0 

401.000 

I F (*4. EQ. 133)  F0=0 

402 . 000 

7F(*4.£Q. 165)  F1=0 

403.000 

446 

I PC = IPC *1 

404.000 

7ST=7ST*1 
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405.000 

406.000 

407.000 

408.000 

409.000 

410.000 

411.000 

412.000 

413.000 

414.000 

415.000 

416.000 

417.000 

418.000 

419.000 

42P.000 

421.000 

422.000 

423.000 

424.000 

425.000 

426.000 

427.000 

428.000 

429.000 

430.000 

431.000 

432.000 

433.000 

434.000 

435.000 

436.000 

437.000 

438.000 

439.000 

440.000 

441.000 

442.000 

443.000 

444.000 

445.000 

446.000 

447.000 

448.000 

449.000 

450.000 

451.000 

452.000 

453.000 

454.000 

455.000 


GOTO  410 

209  CALL  REWR  {IPO,  l.KH.O) 

IF  (KH.EQ.bb)  ACC=2bb-ACC 
IF «4. EQ.  167)  ICAR=ABS(ICAR-1  ) 

IF(KH.EQ.1H9)  F0=ABS(F0-1) 

IF(KH.EQ.lSl)  FUABS(Pl-l) 

GOTO  446 

212  ACC-ACC*2 

CALL  CAR(K,ACC,2bb) 

ACC- ACC *K 
GOTO  446 

213  ACC-ACC*2*ICAR 

CALL  CAR(ICAR,ACC,2bb) 

GOTO  446 

214  Kl-ACC /2 
ACC=KI+128*(ACC-K1*2) 

GOTO  446 

215  KUACC/2 
K2-ACC-KU2 
ACC-Kl*ICAR*128 
ICAR-K2 

GOTO  446 

210  Kl-ACC/lb 
K2=ACC-Kl*l& 

IP (K 2 . GE . 10 . OR . ICY  1 . EQ . 1 ) ACC* ACC  *  6 
K1=ACC/ 16 

IP (HI . GE . 10 . OR . ICAR . EQ . 1 ) ACC-ACC*6* 16 
ICAR= 0 

CALL  CAR(ICAR, ACC, 25b) 

GOTO  446 

211  Xl=yK7C/16 
K2=ACC~(Kl*lb) 

ACC=Kl*K2*lb 
GOTO  446 

216  CALL  REWR  (IPC, 1.X4, 0) 

PRINT  HSb,JJ,IPC,KH-b 

465  FORMAT( 'AT  LIRE  HO  '.15,'  ( PC=' ,1 4,')  INPUT  AT  PORT  HO  ' 

1.12.'  IS:') 

READ  466, K1 
ACC  -K 1 

437  1ST -1ST* 1 
GOTO  446 

217  CALL  REWR  (IPC, 1,KH, 0) 

IP  (KH.EQ.2)PRIRT  H3b.JJ.ACC 

IF  (KH.EQ.bl.OR.KH.EQ.bb)PRINT  H3S.JJ .KH-bb.ACC 

435  FORMAT ( ' AT  LIRE  NO  ',1b,'  BUS  LATCHED  AT  ',13) 

436  FORM AT ('AT  LINE  NO  ',1b,'  OUTPUT  PORT  NO  ’,11,'  LATCHED  AT  ',13) 
IP(KH.NE.2)G0T0  391 

BUS=ACC 
BUSV-1 
GOTO  437 
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43b.  000 

351 

IF(KB.EQ.bO)pi-ACG 

457.000 

IF(kH.E^.bS)P2=ACC 

458.000 

GOTO  437 

459.000 

4/4 

PRINT  975 

460.000 

97  5 

FORMAT ( 'NO  DATA  ON  BUS') 

461.000 

GOTO  437 

462.000 

220 

PRINT  998, JJ.IPC 

463.000 

998 

FORMAT ('AT  LINE  NO  ' ,1 5,'  (PC= * , 74, ’ ) 

/vp/yr  from 

BUS  IS: ' ) 

464.000 

READ  466.A1 

465.000 

II 

c_> 

466.000 

GOTO  437 

467.000 

221 

CALL  REWR  (IPC, 1,A4, 0) 

468.000 

IF(kH.LE.lb)  GOTO  439 

469.000 

PRINT  432,-7f7,A4-S6,ACC-(AC<?/16)*16 

470. 000 

432 

F0RMAT( 'AT  LINE  NO  ',1b,'  EXPANSION  PORT  NO' .12,' 

IS'. 73) 

471.000 

PEXP(kB-b9)=ACC-ACC/U> 

472.000 

PEXFV (A4-59)=l 

473.000 

GOTO  437 

474.000 

439 

PRINT  931,.J-/,rPC.A4-8 

475.000 

931 

FORMAT  CAT  LINE  NO  ',1b, '(PC-  '  ,1 4,' 

) INPUT' 

476.000 

1’  AT  EXPANSION  PORT' ,72, *  IS:') 

477.000 

READ  466  .All 

478.000 

/K?<;=Al-(Al/lb)*16 

479.000 

PEXP(KH-11)=ACC 

480.000 

PEXPV(K 4-ll)=l 

481.000 

GOTO  437 

482.000 

222 

CALL  REWR  (IPC, 1.A4, 0) 

483.000 

A4=A4-155 

484.000 

IF  (PEXPV(kB) .EQ.O)  GOTO  576 

485.000 

K  6=2 

486.000 

GOTO  978 

487.000 

576 

PRINT  977. -7,7 

488.000 

977 

FORMAT  ('NODATA  ON  PORT  AT  LINE  ’ ,1b) 

489.000 

GOTO  437 

490.000 

223 

CALL  REWR  ( IPC, 1,A4, 0) 

491.000 

A4=A'4-139 

492.000 

IF(PEXPV(kh) .EQ.0)G0T0  576 

493.000 

A6  =  l 

494.000 

978 

A7  =  0 

495.000 

K 8= ACC 

496.000 

A9=P£TP(A4) 

497.000 

A5=l 

498.000 

DO  563  -7=1,4 

499.000 

A3=0 

500.000 

A  l=A-(A/2 )*2 

501.000 

A2=A8-(A8/2)*2 

502.000 

IF((K1+K2) .EQ.K6.0R. (A1+A2)  .E<J.  2)A3=1 

503.000 

A7=A3*A5*A7 

504.000 

A8=A8/2 

505.000 

A9=A9/2 

506 . 000 

5b3 

A5=A5*2 

L. 
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507.000 

PEXPU  4)=A7 

508.000 

PRINT  564ttA7,A4+3,A7 

509.000 

564 

FORMAT ( ' AT  LINE  NO  * ,15, '  EXPANSION  PORT  ',12, 

510.000 

1*  LOGICALLY  CHANGED  TO  ’,73) 

511.000 

GOTO  437 

512.000 

224 

7PC=ACC+ UPC/ 2  56 ) *256 

513.000 

632 

IST-IST*2 

514.000 

633 

CALL  REVR  UPC,  3, *1,0) 

515.000 

516.000 

GOTO  410 

517.000 

225 

CALL  REWR  UPC, 1, *1,0) 

518.000 

IPC- IPC +1 

519.000 

CALL  REWR  UPC, 1, *2,0) 

520.000 

656 

7PC=*2+(  (*l/32)*256)+W*2048 

521.000 

IST-IST+2 

522.000 

GOTO  633 

523.000 

226 

*=-l 

524.000 

CALL  INC0P(0, 232, 0.K, IPC , 1ST ,K8, ACC ,IDM,BS) 

525.000 

IST=IST*1 

526.000 

IPC- IPC +1 

527.000 

7F(*8.5fl .0)  GOTO  410 

528.000 

IPC-IPC-l 

529.000 

CALL  REWR  UPC,  1, *1,0) 

530.000 

7PC=*1+UPC/2S6)*256 

531.000 

GOTO  633 

532.000 

657 

I ST -I ST +2 

533.000 

GOTO  410 

534.000 

227 

7PC=7PC+2 

535.000 

IP(ICAR.EQ.O)  GOTO  657 

536.000 

699 

IPC-IPC-2 

537.000 

CALL  REWR  UPC+1, 1,*1,0) 

538.000 

7PC=*l+(7PC/256)*256 

539.000 

GOTO  632 

540.000 

228 

IPC -IPC *2 

541.000 

IFdCAR.EQ.DGOTO  657 

542.000 

GOTO  699 

543.000 

229 

IPC -IPC +2 

544.000 

1F(ACC.NE.O)GOTO  657 

545.000 

GOTO  699 

546.000 

230 

7PC=7PC+2 

547.000 

IF(ACC.EQ.O)GOTO  657 

548.000 

GOTO  699 

549.000 

231 

K  2=0 

550.000 

*3=1 

551.000 

908 

1PC-IPC*2 

552.000 

PRINT  928, -7.7, *2 

553.000 

928 

FORMATS  AT  LINE  NO  ',7  5,*  7”. 11,'  S7GV4L  75:') 

554.000 

P5A9  466, *1 

555.000 

IFUll.NE ,K3)G0T0  657 

556.000 

GOTO  699 

557.300 

252 

A2=0 
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5S8.000 

A  3=0 

559. 000 

GOTO  908 

560.000 

233 

*2=1 

561.000 

A3  =  l 

562.000 

GOTO  908 

563.000 

234 

A2=l 

564.000 

*3=0 

565.000 

GOTO  908 

566.000 

235 

IPC=IPC*2 

567.000 

IF(FO.NE.1)GOTO  657 

568.000 

GOTO  699 

569.000 

236 

IPC-IPC*2 

570.000 

IF(F l.NE.l)  GOTO  657 

571.000 

GOTO  699 

572.000 

237 

IPC-IPC+2 

573.000 

PRINT  929 ,JJ 

574.000 

929 

FORMAT ( 'AT  LIRE  NO  ' ,1 5,’  TIMER  FLAG  IS:') 

575.000 

READ  466, *1 

576.000 

IF(Kl.NE.l)GOTO  657 

577.000 

GOTO  699 

578.000 

238 

IPC-IPC+2 

579.000 

IF(IEI.NE.O)GOTO  657 

580.000 

GOTO  699 

581.000 

239 

CALL  REWR  (IPC , l.*l, 0) 

582.000 

*l=*l/32 

583.000 

*1=2***1 

584.000 

KUACC/K1 

585.000 

*l=*l-(*l/2)*2 

586.000 

IPC-IPC+2 

587.000 

IF  (Kl.NE.l)GOTO  657 

588.000 

GOTO  699 

569.000 

24  7 

IF  (INST .EQ.S3.0R.INST.EQ.7DG0T0  839 

590.000 

IPC-IPC^2 

591. 00C 

839 

*l=JR7-(rPr7/256)*256 

592.000 

ICn-ICY\-(ICI\f2)*2 

593.000 

ICAR-ICAR- (ICAR/ 2 )*2 

594.000 

*2=(IPC/256)  +  16*SSt-32*P0+64*J(7n-*-128*7CA«? 

595.000 

IF(K2.GT . 2047 )A2=*2-2048 

596.000 

ID'f(9+SP*2)=Xl 

597.000 

IDM( 10+SP*2)=X2 

593.000 

SP-SP* 1 

599.000 

IF(SP.NE. 8)  GOTO  901 

600.000 

469 

PRINT  471,. J-J 

601.000 

471 

FORMAT  ('STACK  POINTER  OVERFLOWS  AT  LINE  ’,151 

602.000 

CALL  EXIT 

603.000 

901 

IF(INST .EQ .63 .OR .INST .EQ .1\)G0T0  781 

604.000 

CALL  REWR  ( IPC-2, 1,*1, 0) 

605.000 

CALL  REWR  (IPC- 1,1, *2,0) 

606.000 

GOTO  656 

607.000 

248 

*3=0 

608.000 

721 

SP=SP-1 

1 
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60S. 000 

IF{$P.EQ.-1)G0TQ  469 

610.000 

K1=IDM(9+SP*2) 

611.000 

k.2=IDM(10*SP*2) 

612.000 

IF  {KZ.EQ.O)GOTO  722 

613.000 

X3W2/16 

614.000 

BS=X3-(X3/2)*2 

615.000 

X3=X3/2 

616.000 

F0=X3-(X3/2)*2 

617.000 

X3=X3/2 

618.000 

ICn=K3-(K3/2)*2 

619.000 

X3=X3/2 

620.000 

IOAR=X3-(X3/2)*2 

621.000 

722 

IF0=X1+256*(X2-(X2/16)*16)+VB*2048 

622.000 

IST=IST+2 

623.000 

GOTO  633 

624.000 

249 

X3=l 

625.000 

GOTO  721 

626.000 

250 

CALL  GETOPi 248, 240. 35, K.IPC.K8, 1ST, IVM.dS) 

627.000 

IFUC8.EQ.1 )  GOTO  907 

628.000 

ACC-K 

629.000 

GOTO  410 

630.000 

907 

CALL  REWR  (IPC-1, 1.X4.0) 

631.000 

IFW4.GS.  168.AffD.X4.Bff .  175  )IDM(  l+X4-168+(  24*BS) ) -ACC 

632.000 

IFlKR.BQ.  160. OR. K<*.SQ.  161 )G0T0  859 

633.000 

IFW4.OS.176.OR.X4.US.98)  GOTO  858 

634.000 

502*0  410 

635.000 

859 

K=IDM{ 1+X4-1 60+ ( 24 *BS) ) 

636.000 

860 

K=X-(X/64)*64 

637.000 

ID#(1*X)=A7C 

638.000 

002*0  410 

639.000 

858 

IF  W4.J7S.66)  002*0 1 813 

640.000 

psrrr  an  ,jj 

641.000 

811 

FORMAT  {'AT  LIRE  R0  ' ,1 5,’  TIMER-BVERT/COURTER  VALUE  IS:') 

642.000 

RBAD  466, XI 

643.000 

IF  Wl. GT.  255. OR. XI. LI*.  0)  GOTO  811 

644.000 

A7C=*1 

645.000 

GOTO  410 

646.000 

813 

IF  (X4.SS.98  )  002*0  816 

647.000 

PRIST  815 ,JJ,ACC 

648.000 

815 

FORMAT  CAT  LIRE  RO  ',15,*  TIMER-EVERT/ COURIER  PRESET  AT 

649.000 

GOTO  410 

650.000 

816 

OABB  RSRR  UPC,  1,X3,0) 

651.000 

IF  W4.UT.184)  OOTO  817 

652.000 

IF W4.0T.  191  )00T0  819 

653.000 

IZW(1*K4-184*(24*BS))=X3 

654.000 

816 

IST-IST*1 

655.000 

IPC-IPC* 1 

656.000 

OOTO  410 

657.000 

817 

X=I0K(  1*X4-176*(  24*85)  > 

658.000 

X*X-(X/64)*64 

659.000 

IDV(1W)=X3 
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O60.000 

GOTO  918 

661.000 

819 

IF(KH.EQ.21b)GOTO  820 

662.000 

ACC~(  128*J(7/)’?)  +  (64*ICyi)-*-(  32*F0)  +  (  16*BS)+8+SP 

663.000 

GOTO  410 

664.000 

820 

SP=ACC-(ACC/9)*8 

665.000 

Kl=ACC/lb 

666 . 000 

BS=Kl-(Kl/2)*2 

667.000 

X.l-Kl/2 

668. 000 

F0=Kl-(Kl/2)*2 

669.000 

KUKl/2 

670.000 

ICYl=Kl-(Kl/2)*2 

671.000 

Kl-Kl/2 

672.000 

ICAR-Kl-(Kl/2)*2 

673.000 

GOTO  410 

674.000 

251 

CALL  REWR  (IPC  t 1,A4,0) 

675.000 

IF  (A4.GB.40)  GOTO  733 

676.000 

K-IDM(  l+A4-32+( 24*BS) ) 

677.000 

A.'=A-(A/64)*64 

678.000 

K1-IDM(1*K) 

679.000 

IDM(1*K)=ACC 

680.000 

734 

ACC-K1 

681.000 

GOTO  446 

682.000 

733 

Kl-IDMi,  l+K4-40+(  24*BS)  ) 

683.000 

I  DM ( l+K4-40-*-(  24*BS) ) -ACC 

684.000 

GOTO  734 

685.000 

252 

CALL  REWR  (IPC, 1**4, 0) 

686.000 

K=IDM( l+A4-48+( 24 *BS) ) 

687.000 

A=K-U/64)*64 

688.000 

K2=IDM(1*K) 

689.000 

A1=A2-(K2/16)*16 

690.000 

IDM(UK)=((K2/1&)*16)*(ACC-(ACC/16)*16) 

691.000 

ACC-K1+(ACC/1&)+1& 

692.000 

GOTO  446 

693.000 

253 

CALL  REWR  (IPC ,1,X4,0) 

694.000 

PRINT  767 M 

695.000 

767 

FORMAT ( 'AT  LINE  NO  ’,75,’  HARDWARED  BANK  SWITCHING  FOR  EXTERNAL 

696.000 

1  'DATA  MEMORY  IS  (0-3):') 

697.000 

READ  466, A3 

698.000 

BUSV- 0 

699.000 

IF(K9.GT. 129)  GOTO  766 

700.000 

ACC=IDM(6S+( 2SS*K2)*IDM( l«*4-128+( 24*BS) ) ) 

701.000 

765 

IST~IST*1 

702.000 

GOTO  446 

703.000 

766 

7DV(65+(256*A3)+ID¥(1+A4-144+(24*BS)))=A7C 

704.000 

GOTO  765 

705.000 

254 

IPC-IPC*1 

706.000 

K3-ACC*(IPC/2Sb)*2bb 

707.000 

917 

CALL  REWR  <K3,1,X4,0) 

708.000 

ACC-K 4 

709.000 

IST=IST+2 

710.000 

GOTO  410 
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711.000 

255 

IPC-IPC*! 

712.000 

X3=ACC*3*256 

713.000 

GOTO  917 

714.000 

256 

CALL  REWR  UPC,  1. *4,0) 

715.000 

IP  (X4.Se.85)  PRINT  43 O.JJ 

716.000 

IP  (X4.Sfl.69)  PRINT  431 ,JJ 

717.000 

430 

FORMAT ( ’  AT  LINE  NO  ’  ,1 5,  ’  TIVSS  ENABLED") 

718.000 

431 

FORMAT  {'AT  LINE  NO  ',15,  1  SFSVT  COUNTER  ENABLED’) 

719.000 

GOTO  446 

720.000 

257 

PRINT  492 ,JJ 

721.000 

492 

FORMAT  {'AT  LINE  NO  ',15,'  TIMER  / EVENT  COUNTER  DISABLED') 

722.000 

GOTO  446 

723.000 

258 

CALL  REUR  {IPC, 1.X4.0) 

724.000 

IF(X4.S5.37)  GOTO  833 

725.000 

PRINT  434, JJ 

726.000 

434 

F0PVAT  ( 'AT  LINE  NO '.IS,'  EXTERNAL  INTERRUPT  ON') 

727.000 

IEI=  1 

728.000 

GOTO  446 

729.000 

833 

PRINT  495, JJ 

730.000 

495 

FORMAT  CAT  LINE  NO’, IS,'  TIMER-EVENT /COUNTER  INTERRUPT  ON') 

731.000 

ITCNTI-1 

732.000 

GOTO  446 

733.000 

259 

CALL  REWR  (IPC,1,KN,0) 

734.000 

IF  (X4.Sfl.53)  GOTO  834 

735.000 

PRINT  496, JJ 

736.000 

496 

FORMAT  {'AT  LINE  NO ',15,'  EXTERNAL  INTERRUPT  OFF’) 

737.000 

ISI=  0 

738.000 

GOTO  446 

739.000 

834 

PRINT  497, JJ 

740.000 

497 

FORMAT  {'AT  LINE  NO ',15,'  TIMER-EVENT /COUNTER  INTERRUPT  OFF') 

741.000 

ITCNTI-D 

742.000 

GOTO  446 

743.000 

260 

CALL  REWR  (IPC, 1.X4.0) 

744.000 

IF  (X4.Sa.197)  BS- 0 

745.000 

IF  (X4.Se. 213)  SS=1 

746.000 

IF  (X4. Se. 229)  VS=0 

747.000 

IP  (X4.Se. 245)  VS=1 

748.000 

CCTO  446 

749.000 

261 

PSIWT  438, JJ 

750.000 

438 

POSNAT  ('AT  LINS  NO', I 5,'  CLOCK  PRESENT  ON  TEST  PIN  O') 

751.000 

262 

GOTO  446 

752.000 

263 

IP  USI.Se. 0)  GCTO  410 

753.000 

PRINT  971, JJ 

754.000 

971 

PCPNAT  CAT  LINS  .VC  ’,15,'  EXTERNAL  INTERRUPT  BEING  SERVED') 

755.000 

IEI-0 

756.000 

GOTO  247 

757.000 

271 

IP(ITCNTI.EQ.O)  GOTO  410 

758.000 

PRINT  472, JJ 

759.000 

472 

FORMATCAT  LINE  NT, IS,’  TIMER-EVENT! COUNTER  INTERRUPT' 

760.000 

T  BEING  SERVED') 

761 . nno 

TTCNTTsQ 
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762.000 

GOTO  247 

763.000 

781 

IF  (INST. EQ. 63)  IPC-3 

764.000 

IF  (INST.EQ.1X)  IPC-1 

765.000 

GOTO  633 

766.000 

264 

PRINT  473,// ,IPC ,ACC ,(IDM(BS*2>*+K)  ,*=1,8)  ,SP,IST ,ICAR , 

767.000 

lICn,IEI  ,ITCNTI  ,MB,BS,F0,P\ 

768.000 

473 

FORMAT  ('  LIVE  R7  ACC  /?0  fll  J?2  /?3  ff4  ff5* 

769.000 

1*  R6  R1  SP  STEP  CAR  AC  IEX  IT IM  MB’ 

770.000 

7'  BS  F 0  FI',/, 2115) 

771.000 

GOTO  410 

772.000 

265 

GOTO  485 

773.000 

266 

GOTO  410 

774.000 

267 

CALL  CTE(I,IR12(1) ,IR12(2) ,K) 

775.000 

499 

DO  597  /=1,64 

776.000 

597  KS(J)-IDM(J+K* 64) 

777.000 

PRINT  500 ,JJ,K,KS 

778.000 

GOTO  410 

779.000 

500 

FORMATCAT  LINE  NO', IS,'  MEMORY  MAP  NO  \I4,  ’IS:  4(1616 

780.000 

268 

GOTO  410 

781.000 

269 

GOTO  410 

782.000 

270 

GOTO  410 

783.000 

82 

CALL  CTE(I ,IR12( 1) ,IR\2(2) ,K) 

784.000 

CALL  CTE(I ,r»12(3)  ,D?12<4)  ,*1) 

785.000 

CALL  REWR(K,l,Kl,l) 

786.000 

GOTO  409 

787.000 

85 

CALL  CTE(I,IR12(1),IR\2(2),IPC) 

788.000 

IL-IPC+l 

789.000 

GO  TO  409 

790.000 

504 

CALL  CTE(I ,IR12(1) ,IR12(2) ,IPC) 

791.000 

GOTO  415 

792.000 

84 

CALL  CTEil ,Iffl2(l) ,11112(2)  ,K) 

793.000 

IPCR(LABC)-K 

794.000 

GOTO  409 

795.000 

281 

WPrTE(2'NC(\))  (IBUF(l,J)  ,/=  1,256) 

795.500 

WRITE(^'NC(3))(IBUF(3,J)  ,/=l,  256) 

796.000 

467 

CALL  EXIT 

797.000 

END 

798.000 

SUBROUTINE  CTE(I ,LB,LF,IR) 

799.000 

DIMENSION  1(32) 

800.000 

DECODE (LF, 2, I)LB-1 ,LF-LB*1,IR 

801.000 

2  FORMAT (NX, IN) 

802.000 

RETURN 

803.000 

END 

804.000 

SUBROUTINE  REWR  ( IAD,NF,K,M ) 

805.000 

COMMON  IBUF(3, 256)  ,JVC(3)  ,IFL(3) 

806.000 

U-IAD/2B6 

807.000 

K2-IAD-K1*23S*1 

808.000 

809.000 

IFOil.NE  .NC(NF) )  GO  TO  1 

810.000 

6 

IF  (M)  2,3,2 

pi i  nnn 

3 

KsTWIP(NF ,K2) 

k 
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812.000 
813.000  2 
814.000 
815.000 
816.000  1 
817.000  5 
818.000 
819.000 
820.000  4 
821.000 
822.000 
823.000 
824.000 
825.000 
826.000 
827.000 
828.000 
829.000 
830.000 
831.000 
832.000 
833.000 
834.000 
835.000 
836.000 
837.000 
838.000 
839.000 
840.000 
841.000  1 
842.000 
843.000 
844.000 
845.000 
846.000 
847.000 
848.000 
849.000 
850.000 
851.000 
852.000 
853.000 
854.000 
855.000 
856.000 
857.000 
858.000 
859.000 
860.000 
861.000  1 
as?  nnn 


RETURN 

IBUF(NF,k2)=k 
IFUNF)- 1 
RETURN 

IFilFUNF))  4,5.4 
REA9(NF+\’K\)(IBUF(NF,-J)  ,-J=  1.256) 
NC(NF)-kl 
GO  TO  6 

VRlTElNF+l  'NC(NF) )  (IBUF( NF,J)  ,-J=l ,  256) 
IFUNF)-  0 
GO  TO  5 
END 

SUBROUTINE  URUI.J.IPC) 

CALL  REVRUFC.  1,1.1) 

CALL  REWR(IPC+l,l>J,\) 

IPC-IPC*2 

RETURN 

END 

SUBROUTINE  VRKIJPC) 

CALL  REVR(IPC, 1,1,1) 

IPC=IPC+1 

RETURN 

END 

SUBROUTINE  CARilCddM) 

IC-Q 

IFII.LT.IM )  GO  TO  1 
IC=  1 
I-I-IM 
RETURN 

IF(I.GE.O)  RETURN 

IC= 1 

I-I*IM 

RETURN 

END 

SUBROUTINE  RBGRR(IPC.K) 

CALL  REWRilPC 

K2=K1/16 

Xl=Xl/64 

X=X2~X1*4 

*>X*2U 

RETURN 

END 

SUBROUTINE  REGRUPC ,IRR ,K) 

DIMENSION  IRR( 10) 

OILE  REWRdPC,  l.X.O) 

X=K-U/8)*8 
IF(X.FC.6)  GO  TO  1 
X*IRR(X*1) 

RETURN 

CALL  RWR(IRff(5)*256+IRR(6),l,A,0) 
RETURN 
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863.000 
864.000 
865.000 
866 . 000 
867.000 
869.000 
869.000 
870.000 
871.000 
872.000 
373.000 
874.000 
875.000 
876.000 
877.000 
878.000 
879.000 
880.000 
881.000 
882.000 
883.000 
884.000 
885.000 
886.000 
887.000 
888.000 
889.000 
890.000 
891.000 
892.000 
893.000 
894.000 
895.000 
896.000 
897.000 
898.000 
899.000 
900.000 
901.000 
902.000 
903.000 
904.000 
905.000 
906.000 
907.000 
908.000 
909.000 
910.000 
911.000 
912.000 
on  pnn 


END 

SUBROUTINE  FFZSP(IZER,ISIG,IPAR,L) 
IZER= 0 

IFiL.EQ. 0)  IZER=\ 

ISIG-0 

IF(L.GE.  128)  ISIG= 1 

IPAR= 0 

I-L 

DO  1  •7=1,8 
IPAR=I-(I/2)*2+IPAR 
1=1/ 2 

IPAR=IABS(IPAR- ( IPAR/ 2 )  *2-1 ) 

RETURN 


END 

SUBROUTINE  Sl(I,N,L,-J) 

DIMENSION  1(32) 

DATA  MASK/ 8Z000000FF/ 

1  V=l+(/V-l)/4 

2  K=N-(M- 1)*4 

3  ri=ISL(I(M),8*(X-4)) 

5  L=IAND(MASK,II) 

4  RETURN 
END 

SUBROUTINE  SEARCH (I ,NC , LB, LF.CP.PC) 
INTEGER  CP.PC 
DIMENSION  1(32) 

DO  1  N=LB,LF 
CALL  SUI.N.L.B) 

IF(L.EQ.NC)  GO  TO  2 
1  CONTINUE 


CP-  0 
RETURN 
2  CP=1 
PC=N 
RETURN 
END 

SUBROUTINE  SlU ,K,LABP, LAB, INST ,IR1P,IR2P,IR12,I) 
DIMENSION  INS (71) ,IR12(H) ,I( 32) 

DATA  INS /HR ADD  .HUADDC ,HHANL  ,HHORL  .HRXRL  ,4 RING 
1 HR DEC  , HRCLR  ,4 HCPL  ,HHDA  ,HRSWAP,HHRL  ,4 HRLC  , 
2HRRR  ,HHRRC  ,4 HIN  ,HHOUTL,HH****,HHnnnn,HHINS  , 
ZHHMOVD , HHANLD , HHORLD , HR.JMPP , HR.JMP  ,HHDJNZ,HHJC  , 
44 H-JNC  ,HHJZ  , HEINZ  ,HHJTO  ,HHJNTQ,HHJT1  .HHJNT1, 
SHHJFO  ,HRJF1  ,4 RJTF  ,  HR -IN  I  ,  HH-JBO  ,  Hti-JBl  ,  HRJB2  , 
6HRJB3  ,  HH-JBH  ,HR.JB5  ,  Hti-IBB  ,  HHJB7  ,HHC ALL  ,HHRET  , 
7HHRETR ,HHMOV  ,HRXCR  , HHXCRD , HHMOVX , HHMOVP, HHM0V3, 
BHRSTRT , HHSTQP,HHEN  ,4 HDIS  ,H HSEL  ,HHENTO ,HHNOP  , 
9HRINTE , HHPRIN , HHEND  , HHASSI , HHMAP  ,4 HVAR  , HR BASE, 
AHRASSD ,HRINTT / 

INTEGER  CP.PC 
EVCOnE  (128. 12. T) 
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914.000 

12  FORMAT  (M  ) 

915.000 

CALL  DIRECT  READ( 1,1, 32, J) 

916.000 

IR1P*0 

917.000 

IR2P-Q 

918.000 

LB-1 

919.000 

LF* 128 

920.000 

CALL  SEARCHd , 3k, LB, LF, CP, PC) 

921.000 

IFiCP.BQ. 1)  LF-PC-1 

922.000 

CALL  CLSPd  ,LF,-1 ) 

923.000 

LABP-Q 

924.000 

CALL  CLSPd , LB, 1) 

925.000 

CALL  SE ARCHd,  122,  LB, LF, CP, PC) 

926.000 

IF(CP.EQ. 1)  GO  TO  2 

927.000  13 

CALL  CLSPd ,LB ,1) 

928.000 

CALL  SE ARCH (1,6^, LB, LF, CP, PC) 

929.000 

LFF=LF 

930.000 

IF(CP.EQ. 1)  LFF-PC- 1 

931.000 

GO  TO  4 

932.000 

2  IF(K.NE. 0)  GO  TO  6 

933.000 

LABP-1 

934.000 

LAB* 4j? 

935.000 

LK-l 

936.000 

DO  7  L1-LB,PC-1 

937.000 

CALL  S1(I,L1,L,9) 

938.000 

IPU.EQ.1H  )G0  TO  7 

939.000 

£=ISM£,8*(4-£*)) 

940.000 

MASK- ISC  ( 8ZFPFFFF00 , 8*  ( 4-M) ) 

941.000 

LAB*IOR(I AND (MASK, LAB)  ,L) 

942.000 

IF(LK.EQ. 4)  GO  TO  6 

943.000  7 

LK=LK+ 1 

944.000 

6  LB-PC*1 

945.000 

GO  TO  13 

946.000 

4  INST* 4tf 

947.000 

LK-l 

948.000 

DO  9  L1-LB,LB*3 

949.000 

CALL  S1(I,L1,L,10) 

950.000 

IF(Ll.GT.LFP)L=6* 

951.000 

L*ISL(L,8*(H-LK)) 

952.000 

MASK*ISC ( 8ZFFFFFF00, 8* ( 4 -LK)) 

953.000 

INST -I0R(IARD( MASK , INST ) ,L) 

954.000  9 

LK-LK*1 

955.000  14 

LBdFF+1 

956.000 

DO  10  £1=1,71 

957.000 

IP(INS(L1) .EQ.INST)  GO  TO  11 

958.000 

10  CONTINUE 

959.000 

11  IN ST* LI 

960.000 

CALL  CLSPd, LF,-1) 

961.000 

IF(LB.GT.LF)  RETURN 

962.000 

IR1P*1 

963.000 

CALL  CLSPd, LB, 1) 

QRit  nnn 

CAT.T.  SEAPCRd  ADI  J, B. IF  .CP  .PC) 

UNCLASSIFIED 

32 


965.000 

966.000 

967.000 

966.000 

969.000 

970.000 

971.000 

972.000 

973.000 

974.000 

975.000 

976.000 

977.000 

978.000 

979.000 

980.000 

981.000 

982.000 

983.000 

984.000 

935.000 

986.000 

987.000 

988.000 

989.000 

990.000 

991.000 

992.000 

993.000 

994.000 

995.000 

996.000 

997.000 

998.000 

999.000 

1000.000 

1001.000 

1002.000 

1003.000 

1004.000 

1005.000 

1006.000 

1007.000 

1008.000 

1009.000 

1010.000 

1011.000 

1012.000 

1013.000 


IR\2(l)=LB 
IF(CP.EQ.l)  GO  TO  1 
Iffl2( 2)=£F 
RETURN 

1  LK=PC-l 

CALL  CLSP(I ,LK,-1) 

IR\2(2)=LK 
IR2P~1 
LB=PC* 1 

CALL  CLSP(I ,LB,1) 

7R12( 3)=£9 
Iffl2(4)=£F 
RETURN 
END 

SUBROUTINE  CLSP(I.LB,J) 

DIMENSION  1(32) 

2  CALL  SKI, LB, L,  11) 

IP (I.VP.64) RETURN 
LB-LB*J 

GOTO  2 
END 

SUBROUTINE  LABEL  (I  ,  A 1 .  A  2 ,  L4B/? ,  IPCR ,K3,LABC  ,-JJ , INST ) 
DIMEN SION I ( 32 ) ,LABR ( 500) ,IPCR( 500) 

DECODE  (A2,1,I)A1-1,A 

1  FORMAT(NX.AM) 

LAU  0 

DO  2  J=1,LABC 

IF(K.EQ.LABR(-D)  LAI = LAI*  1 

2  IF(K.EQ.LA3R(.J))  LAB=IPCR(J) 

IF(LAI .EQ. 1)G0T0  3 

PRINT  *,LAI,K 

4  FORMAT  ('THERE  ARE  ’,13,'  LABELS  CALLED  ’  .-44) 

3  A3=A3+1 

IFttNST .EQ.2S.OR.INST .EQ.M7 .OR.INST .EQ.7Q)GOTO  17 

Al=(A3-l)/256 

IF(INST.  FG.26)Al=A3/256 

A2=L4B/256 

IFOil.NE  .K2.AND.INST  .NE . 70)GOTO  23 

£-4B=£-4B-A2*256 

C-4££  WR\(LAB,K3) 

RETURN 

23  PPIVT  7, A, JJ 

GOTO  50 

6  IF(A1.G2\15)  PBI/VI  7,A,e/I 
IP(Al.tB.15)PffIVr  8, A, e/I 

7  FORMAT ('LABEL  ’,-44,'  VOI  ACCESSIBLE  FROM  LINE  ',15) 
8  FOW/irC'fB  wsr  BE  1  POP  TAP  LABEL  ',/44,'  TO  BE  ' 
l’/lCCESSSO  F?m  LIVE  ’,15) 

IFCAl.Sr.lSlSOIO  50 


1014.000  £-49=1/19-2043 

met  n,m  n  n=r/tR/0Sft 


i 
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1016.000 

IF(K1.GT.7)G0T7  6 

1017.000 

*2=44*1*32 

1018.000 

IF  (IVST.52.47)K2=204*l*32 

1019.000 

LAB-LAB-K\*2Sb 

1020.000 

IP  (I VST. EQ. 70) GOTO  18 

1021.000 

CALL  yRI(K2,LAS,K3-l) 

1022.000 

50 

K3=A3+1 

1023.000 

RETURN 

1024.000 

18 

K2-K1 

1025.000 

CALL  HRI(K2%LA3,K3) 

1026.000 

RETURN 

1027 . 000 

END 

1028.000 

SUBROUTINE  SYNTAXE  (I ,LB1,LF1,LB2,LF2,C0DE ,REG ,DAT , 

1029.000 

UJ.IR2P.INST ) 

1030.000 

DIMENSION  1(32) 

1031.000 

INTEGER  CPtPC  tCODE ,REG ,DAT ,TB ,TF 

1032.000 

T8-LB1 

1033.000 

TF-LF1 

1034.000 

CODE-O 

1035.000 

REG= 0 

1036.000 

DAT= 0 

1037.000 

IF (INST .GE .21. AND .INST .LE .23)GOTO  650 

1038.000 

IF (INST. NE. 17 )G0T0  608 

1039.000 

LB1=LB2 

1040.000 

LFULP2 

1041.000 

LB2-TB 

1042.000 

LF2-TF 

1043.000 

608 

CALL  S1(I.LB1,L,12) 

1044.000 

IF(IR2P.EQ.O)GOTO  611 

1045.000 

IF  (L.NE.  193. OR. LB1.NE  .LFDGOTO  604 

1046.000 

CALL  Sl(I,LB2tL,13) 

1047.000 

IF(L.EQ. 124)  GOTO  601 

1048.000 

1F(L.EQ.\23)GOTO  602 

1049.000 

IF(L.EQ.21S)GOTO  612 

1050.000 

IF(L.EQ.1SH)G0T0  615 

1051.000 

IF (L.EQ. 227 )GOTO  644 

1052.000 

IF(L.NE. 217)  GOTO  604 

1053.000 

9 

CALL  Sl(r,W24-l,£i,14) 

1054.000 

DO  10  11=240,247 

1055.000 

IF(Ll.EQ.L)  GOTO  11 

1056.000 

10 

CONTINUE 

1057.000 

GOTO  604 

1058.000 

644 

CODE -7 

1059.000 

RETURN 

1060.000 

11 

CODE- 1 

1061.000 

14 

J?ffG=£l-240 

1062.000 

RETURN 

1063.000 

601 

CALL  S1(I,£S2+1,£,15) 

1064.000 

IF(L.NE. 217)  GOTO  604 

1065.000 

34 

CALL  S1(I ,LB2+2,L,l&) 

UNCLASSIFIED 
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34 

1 

lOoV.GOO 

IF  l Ll.EQ.DGOTO  13 

1 

1068.000 

12 

CONTINUE 

1 

1069.000 

GOTO  604 

: 

1070.000 

13 

CODE- 2 

1071.000 

REG=L1~2*Q 

1072.000 

IF(INST.EQ.(>0)CODE=3 

1073.000 

IFiDAT  .EQ.DREG-REG+2 

1074.000 

RETURN 

1075.000 

602 

CALL  CTE  (ItLB2+ltLF2,K) 

1076.000 

IP(N.LT.O.OR.K.GT.2Lb)  GOTOBO* 

1077.000 

CODE- 3 

1076.000 

DAT-K 

1079,000 

RETURN 

' 

1080.000 

657 

CODE- 6 

1081.000 

RETURN 

1082.000 

604 

IF ( INST .EQ.SO.OR. INST .EQ.S3.0R. INST .EQ.3.0R. INST .EQ. 4 ) RETURN 

1083.000 

PRINT  605 ,JJ 

1084.000 

605 

FORMAT  WRONG  ARGUMENTS  AT  LINE  ' ,1 5) 

1085.000 

RETURN 

1086.000 

611 

IF(L.NE.193)GOTO  613 

j  1087.000 

615 

CODE-* 

|  1088.000 

RETURN 

1  1089.000 

612 

CALL  S1(I, LB2+1.L. 17) 

1  1090.000 

IF(L.EQ.22S)GQT0  657 

I  1091.000 

DO  16  1,1=241,242 

1  1092.000 

IF(Ll.EQ.L)GOTO  17 

1  1093.000 

16 

CONTINUE 

I  1094.000 

GOTO  604 

1  1095.000 

614 

CALL  SHI  ,LB2+1,L, 18) 

1  1096.000 

DO  24  £1=240.241 

I 

1  1097.000 

IF  (Ll.EQ.L)GOTO  25 

J 

1  1098.000 

24 

CONTINUE 

I  1099.000 

GOTO  604 

I  1100.000 

25 

R£G=£l-240 

I  1101.000 

GOTO  18 

I  1102.000 

17 

ffl?G=£l~241 

1  1103.000 

18 

CODE= 8 

1  1104.000 

RETURN 

I  1105.000 

613 

LB2=LB1 

|i  1106.000 

IF(L. EQ. 217. AND. INST .EQ.6D)G0T0  34 

|i  1107.000 

IFd.EQ. 217 )GOTO  9 

I:  1108.000 

IF  (L .EQ ,12*)GQT0  601 

|j  1109.000 

IF  (L.EQ.195)CODE=5 

I  1110.000 

IFiL.EQ. 212)DAT=1 

|{  1111.000 

IF(L.EQ.2\2)GOTO  34 

1;  in  2.000 

IF  (L.EQ.2DDCODE-8 

||  1113.000 

IF  (L.EQ. 227 )CODE=7 

i  1114.000 

IFiL.EQ.198)GOTO  614 

1  1115.000 

IF  (CODE.EQ.O)SOTO  604 

1  1116.000 

RETURN 
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1118. 000 

IFUNST.NE.  21. OR. L.EQ.lWGOTO  651 

1119.000 

IF(DAT.EQ.^)GOTO  604 

1120.000 

LB1-LB2 

1121.000 

LF1-LF2 

1122.00 0 

LB2-TB 

1123.00 0 

LF2=TP 

1124.000 

DAT- 48 

1125.000 

GOTO  650 

1126.000 

651 

IP(L. HE. 103. OR. LB2.NE.LF2)GOTO  604 

1127.000 

CALL  S1(I, LB1, L, 20) 

1128.000 

IP 1L. WE. 215 )GOT0  604 

1129.000 

CALL  Sl(I»LBl+l,L,2l) 

1130.000 

DO  19  11=244,247 

1131.000 

IP{L1.EQ.L)G0T0  21 

1132.000 

19 

CONTINUE 

1133.000 

GOTO  604 

1134.000 

21 

REG=(L1-DAT)-2MH 

1135.000 

C0DE=1 

1136.000 

RETURN 

1137.000 

END 

1138.000 

SUBROUTINE  SET(CTE) 

1139.000 

DIMENSION  CTE (.10) 

1140.000 

DO  2  <7=1,10 

1141.000 

CTEU)- 1000 

1142.000 

2 

CONTINUE 

1143.000 

RETURN 

1144.000 

END 

1145.000 

SUBROUTINE  GET0P(Kl,K2,K3tK,lPC ,K3,IST ,IDM ,BS) 

1146.000 

DIMENSION  IDM(.  1088 ) 

1147.000 

CALL  REWR(IPC, 1,K4,0) 

1148.000 

K8=0 

1149.000 

K- 1029 

1150.000 

IF  LKH.GE.K1.AND.KH.LEAK1+7))K=IDM(.1+KH-K1+(.2‘**BS)) 

1151.000 

IF  (.KB.NE.K2.AND.K‘l.NEAK2+l))SQTO  800 

1152.000 

K=nW(Htf4-A2-K24*BS)) 

1153.000 

K-K-(K/ 64)*64 

1154.000 

K=IDV(l+tf) 

1155.000 

800 

IST-IST+1 

1156.000 

IPC-IPC+1 

1157.000 

IF  (KH.EQ.K3) GOTO  3 

1158.000 

IFUi.EQ.  1029)^8  =  1 

1159.000 

1160.000 

3 

rS7=JST+l 

1161.0 00 

REWR(IPC,1,K,0 ) 

1162.000 

IPC=IPC+ 1 

1163.000 

RETURN 

1164.000 

END 

1165.000 

SUBROUTINE  INC0P(K1,K2,K3,K,IPC .1ST ,KB,ACC ,IDM,BS) 

1166.000 

DIMENSION  IDM (1088) 

1167.000 

INTEGER  ACC 

1  if.3.  non 

Vflal 
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1169.000  ipr=nr*i 

1170.000  1ST=IST* 1 

1171.000  CALL  REWR  ( 7PC- 1 . 1 , A4, 0) 

1172.000  IF  {KH.EQ.K\)ACC=ACC*K 

1173.000  IF  {.KH.GK.k2.  AND. KH.LK.  (A2»7 ) )  7DV(  1  +KH-K2+{  2H*BS) )  =K*IDM 

1174.000  1 ( l+A4-A2+( 2H*BS) ) 

1175.000  IF(lDM{\+kH-K2+(2H*BS)) .SQ.O)  A8=0 

1176.000  CALL  CAR{K9,  IDVi  1  ♦A4-*2+(  24*BS) ) ,  256) 

1177.000  IFiKH.SK.K3.ARD.KH.RK. (K3*l )>  RETURN 

1176 . 000  A!y=/.DV(H-K4-/iJ«-(24*R5')l 

1179.000  A9=A'9-(K9/64)*64 

1180.000  7PVIH-A9)=JK*J«W(1«A9) 

1181.000  CALL  C/m/i9,f0V<l+K9).2S6> 

1182.000  RETURN 

1183.000  END 

1184.000  SUBROUTINE  ICYUCYX.K,!) 

1185.000  A1=A-(A/ lb)*16 

1186.000  A2=7-(7/16)*16 

1187.000  zcn=o 

1188.000  IFUKUK2)  .GE .  16)7(?y  1-1 

1189.000  RETURN 

1190.000  END 

--EOF  HIT  AbTER  1190. 


CRDV  R-4162,'80  (NON  CIASS1FIE)  I  CRDV  R-4 162/30  (NON  CLASSIFItJ 


in  U 
u  3  *J 
■n  o  aj 
C.  e 

c  C  m 


o  o  -<-•  a>  3 

3  «.!»  3  3  C  O  E 

TJ  O'  O'  4>  t. 
crs  a>  ■*■4  ECO 

L.  6  «  *j  4»  O 

*j  6  oni  w  e 


U  U  'H  o  3  41 
3  v<u  3  3  c  o  e 

TJ  O'  O'  4)  t 

a  V  -h  e  c  a> 

t-  e  -  *->  at  o  *-> 

*->  i  O  v  C 


O  L«  -«  E  C 

«!  h  OO  O  O  H  fl 

a.  o  —  o  a. 

w  w  a  — 

c  c:  cl  e  <u  >-»  3 

rt  3  0j  — 

>  -  4>  -  'O 

^  T3  U  -  ^  ^ 

4>  C  • 

^  C  Qj  Si  v. 

O  •  4>  E  «  O 

S.  •-!  l/>  a>  —  -n 

«r  w  —  *■*  — « 

fC  fl  O  J)  U  ii  C 

t-  rH  to  p  05  \d>  a 

a:  3  ■'-»  t-  k  5. 

o  B  oo  »-  a»  s. 


o  ^  -  E 

/«  l.  oo  o  c 

CL  O  —  4 

*n  3. 

e  c  a  e  -a 


«  O  D 
F-  *- •  LO  4-* 
DC  3  ^  C 
O  6  00  *-• 


EH®  3  | 

(3  *9  O’- 

U  /«  O  —t  K 


Eh®  3  | 

3  n  cr- 

^  /C5  O  'rt  U 


h  4i  v  3  : 

“•.sir: 

c  c  *■*  •«  : 

3  < 

£  J)  J  l 

n  0-0  oo  - 

£  CO  cfl 

o  s  <*  oo  '- 

*->  5*  C  I 

C  O  3  M  l 
4>  T3  4>  «*h  •> 

i/i  O  *“•  * 

\4»  O  W  3  < 

^  CD  | 

o.  c  •-*  I 

a»  *3  c  * 
m  u  o  < 

3  «/>  o  —  i 
O  41  ‘  «J  - 

V.  3  O  « 
cr  >-•  w  < 


£  D  4)  i 

w  u  t)  m: 

CZ  CPI  A 

O  E  VI  Uh 

*->  U  C  t 

C  4>  3  aj  c 

0>  T3  4>  —  - 

vi  O  w  * 

'4>  O  A  3  ( 

y*  c  *3  ; 

a,  c  •«  I 

4)D  C  « 

n  5-  O  v 

3  <n  o  —  t 

o  a>  i  ■* 

-r;  3  o  as 

CT5i  irt  t 


O  — 

fc<  M  3  -~-n 

3  o  e  u 
o  ‘H  ■«  ?: 
a.  e  «i  «— 


<y  3  *-» 

tj  o  o> 

o.  e 

c  C  *> 

o  *-•  <u  4)  : 

•H  r*  CL  «->  T 

*J  M  *-> 

O  O  -h  ft>  ♦ 

341  3  3  ( 

tj  cr  cr  < 


O  M  | 

vn  h  UO  ( 

a.  o  — •  < 

*■>  l*  a, 
c  g  a.  e  < 


•-5  •'H  LO 

<  V  io  - 

e  «g  £ 
a:  2s  c 

O  B  00  — 
u.  ■*  *t  - 
ifl  r-'  *o 


fnco  3  | 
rr  cr  - 

M  /«  ©  h  i 


C  4)  3  fl 
4)  T  H  -< 
V)  O  *J 
54t  U  <*  D 
^  C  -O 
ac^ 
«d  c 

W  O 

3^0- 
o  4>  I  W 
X.  3  O  « 
O'  H  «ft 


U  M  «-» 

E  2.5 
*■'*->- 
®  («  3 
C  C 

T>  O 
V>  M 
**  O  H 
«  i  nj 
O  ^ 

^  U  3  ^ 

|  5.5^ 


«  ^  ED  ( 

h  M  «  ( 

O  h  t 

««  5-  oe  o  < 

D.  O  4 

*->  M  Q. 

c  c  o.  e  < 


o:  3  c 

O  E®h 
u.  ty  - 
r-  -  T3 


Eh®  3  | 

ra  •*  cr  r 

L  'fl  C  -  t 

oc  oo  — 

2  ft»  t>  2  3 

c  C  *J  in  : 

3  « 

£  (i  4  t 

v  ut)  «i: 

c.  a  rn 

O  B  m  oo  t, 

«-•  **  e  4 

C  «/  3  «  ( 

4>  -V  4>  — •  > 

««  O  4-*  ♦ 

'O  U  fl»  3  4 

M  c  -o  : 

a.  c  -  { 

41  D  C  ♦ 

m  L  o  t 

3  «/j  o  —  C 

O  O  *  *j  - 

/.  3  O  * 

O*  U  tn  « 


o 


(-4 

4) 

«-» 


I  w  4-1  4/1  *-> 

3  ■- 

I  ^  3 

I  t>  ^  i/l 

I  US  *->  <-  V 

e  *-»  o  a 

>  <* 

I  TJ  K  •  at 

L.  C  4)  C  4-* 

<o  o  to 

1  i/l  -i  •— 

•  4)  4>  4-*  *o 

:  oc  *->  <o  o 


oo  -*  -«  at 

*  C  o.  *-» 

i  <o  a.  cl  c 

)  3  tfl  -- 

>  TJ 

i  (J  T3  4-* 

.  •-  U  —  3 

•  —  o  u  o 

>  o  *-*  o 

1X1  «  *  « 

’  &-3--S 

i  vi  g  a  h 

i  —*  «  a. 

c  VI  ^ 


O  •  P  CX 
U  VI  J)  p 

o  c  *-  E 

*.0  3*. 
Q.'rt  p,  O 
O  «■»  6  4-* 

P  u  o  c 

U  3  O 

••h  P  o 

E  *->  p  <u 
4/1  o  *-» 
«  C-H  t« 


.00  <4-t  o 

C  h  O  «V 

i12 

(1  l/l  -H  Xl 

u  >  ■* 

oa  v  a  vi 
o  xi  x:  vi 
>4  (U  4»  O 
Q.-.  U5  CX 


I  H  «  *4  V 
.  US  ~  4) 

0  U  *• 


:  ac  «v  o  (i 
■  «  <0  u  E 
3  O  E 

oc  -  — <  a> 

•  c  ^  a.  «-* 

>  co  o.  a.  c 

>  -*  3  <0  - 

>  T3 

•  U  TJ  *-< 

.  H  ^  H  3 

I  -  O  h  o 
I  o  «-*  o 

•  £i  m  %  «J 

’  Jj-S 

i  VI  B  d  h 


i  4)  •  *.  o. 

»  o  tn  v  ? 

>  o  c  *>  E 

I  *.  O  O  *- 

■  a-H  o.  a> 

>  O  w  B  «-* 

I  U  O  o  c 

'  g  s  - 

i  E  K  h  # 

i  t/i  o  *j 

>  a)  c  co 

>  US  E  — 


.00  *+4  o 

C  P  O  4-* 
■H  O 

£  <*4  >4  0) 

I  0-4 

a  vi  -rt  X 
U  — '  >  ri 
00  41  CO  «/) 
O  XI  X  VI 
V.  CO  HI  O 
0.-4  x>  O. 


♦j  -*  o>  u 

C  h  (B  V)  * 

<0  C  3 

£<*-.£  : 
a>  3  a>  - 

4->  c  u  us  * 

(0  (I  UP  l 

*-»  *-*  O  C 

tf)  *j  M  "3  > 

•H  o.  C  < 

4)  M  to 

■H  J  V)  4 

£t  -H  0)  < 

<0  £  jC  00  4 

•O  CO  H  CO  c 

(B  3  « 

4)  OO  OO  -r 

*.  O  •  G  - 


B  <0  -H  U 

*4  -H 

41  Jl  U-> 

*V  *V  w  o 

ffl  a)  4>  X 

1%-°  §. 

§B  «n  w 

•H  —4 

O  v>  c  < 

+-»  40  -rV 

O  U  4 
o  **  a>  a  u 
♦J  *-*  O  r 
■O  3  w 
•O  C  P.  <n 
D  O  E  41 


•o  o  *.  < 

E  O  *  O.T 

<0000* 


U  .P  «/»  B  * 

a.  co  * 

oo  u  ( 

C»£'. 

«  *>  00  t 

h  rr  t*-  | 

as  k.  r-  o  : 

O  «0D 
U.  TJ  OO 
CMC  I 

<  3  O  'H< 

•  O  E  «♦ 

4>  00  | 

C  (0  d 

US  O  QO 1 

O  V  O  U 

g  c  *.  f 


X  3 

I  «  H  fl  VI 
i£  W-4  1> 

0  O  *4 

>  (0 
«  -a  x  •« 
X.  C  4»  C 
CO  O  CO 


•  CO  CO  o  I 

3  o  -H  u 

M'H  h  ^ 

•  C  •-*  O.  «J 

isaac 

>  3  CO  -rH 

)  T3 

I  O  T3  *-* 
.  'H  h  «  3 
MONO 

)  O  o 

>  U0  «0  *  4-> 

’  1.3  S 

)  1/1  fi  CO  *4 

<  'H  v  a 

c  m 


|4)  •  h  a 
I  O  1ft  4>  3 
iots*-*  — 

I  U  O  3  *4 
«  a.-**  p.  4) 

)  O  *>*  B  *-* 

I  M  O  O  C 

'peg- 

»  S  *u  M  4) 

>  1/10  4-1 

>  4i  e  rt  co 

>  US  -r4  E  -4 


.00  «*4  o 

c  u  o  ♦-* 

‘*"4  O 

B  <**  *4  4) 

3  V1H  X) 
*4  -H  >  -H 
SO  41  (0  VI 

O  X)  US  m 
<0  4)  O 
0.-4  X)  Q, 


l 


